subroutine show2d(nx,ny,a)

